home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Other Stuff / Networking ƒ / ATP Sample App / packets / library.c < prev    next >
Encoding:
Text File  |  1989-07-25  |  668 b   |  57 lines  |  [TEXT/KAHL]
  1. strlen(s)
  2. register char *s;
  3. {
  4.     register int len;
  5.     
  6.     for (len = 0; *s; ++len, ++s);
  7.     return len;
  8. }
  9.  
  10. strcpy(to, from)
  11. register char *to, *from;
  12. {
  13.     while (*to = *from)
  14.         ++to, ++from;
  15. }
  16.  
  17. ctopcpy(pstr, cstr)
  18. register char *pstr, *cstr;
  19. {
  20.     register int size = 0;
  21.     register char *p = pstr++;
  22.     
  23.     while (*cstr)
  24.         *pstr = *cstr, ++cstr, ++pstr, ++size;
  25.     
  26.     *p = size;
  27. }
  28.  
  29. ptoccpy(cstr, pstr)
  30. register char *cstr, *pstr;
  31. {
  32.     register int size = *pstr++;
  33.     
  34.     while (size--)
  35.         *cstr = *pstr, ++cstr, ++pstr;
  36.     
  37.     *cstr = '\0';
  38. }
  39.  
  40. atoi(s)
  41. char *s;
  42. {
  43.     int n = 0;
  44.     char c;
  45.     
  46.     while (c = *s++)
  47.         {
  48.         if ('0' <= c && c <= '9')
  49.             n = n * 10 + (c - '0');
  50.         else
  51.             break;
  52.         }
  53.     
  54.     return n;
  55. }
  56.  
  57.